#include "ManagedLasoProvider.h"

 /* Subroutine */int SmartMathLibrary::LasoPack::ManagedLasoProvider::slaran_
   (integer *n, real *x)
{
  /* Initialized data */

  static integer iurand = 0;

  /* System generated locals */
  integer i__1;

  /* Local variables */
  static integer i__;
  //extern real urand_(integer *);


  /*  THIS SUBROUTINE SETS THE VECTOR X TO RANDOM NUMBERS */

  /*  FORMAL PARAMETERS */


  /*  LOCAL VARIABLES */


  /*  FUNCTIONS CALLED */


  /*  SUBROUTINES CALLED */

  /*     NONE */

  /*  INITIALIZE SEED */

  /* Parameter adjustments */
  --x;

  /* Function Body */

  i__1 =  *n;
  for (i__ = 1; i__ <= i__1; ++i__)
  {
    x[i__] = urand_(&iurand) - (float).5;
    /* L10: */
  }
  return 0;
} /* slaran_ */
